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ABS TRACT 

Ratfor (short form of RATional PORtran) is a 
programming language designed by Kernighan and Plauger. 
Ratfor extends the control structures of Portran to 
facilitate structured programming. Ratfor also supports 
some features aimed at making a program concise and 
readable, A description of the language is given. A 
preprocessor, which accepts the Ratfor source program as 
the input and produces an equivalent Portran program, i 
is , idesiigned and^riraplemented. A scheme for integrating 
the preprocessor with the IBM 7044/1401 system is given. 
Lastly, areas for further work are identified. 



CHAPTER 1 


INTRODUOTIOH 

The recent developments in hardware technology, and 
the advances in machine architecture have certainly high- 
lighted the fact that the software costs from the dominant 
component of computing costs. It has been recognized that 
one way of reducing the software costs is by adopting a 
language designed to help in improving the existing program 
ming methodologies and programming supporting tools. 

The concept of structured programming is of relevanc 
here. A consensus has been reached[ 9] about the control 
structures a programming language should have to support 
structured programming. Efforts have been made to provide 
additional control structures to the already existing 
programming languages. Such extensions for Fortran have 
been carried out and there are around fifty structured 
versions of Fortran available [12], Kernighan and Plauger 
[8] have suggested yet another simple extension of Fortran, 
known as Ratfor (short form of RATional FORtran). 

The aim of this thesis is to implement Ratfor. 

A convenient way of doing this is through a preprocessor. 
The preprocessor accepts the Ratfor source program as its 
input, and translates it into an equivalent Fortran program 
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This Portran code can be compiled in the normal manner by 
any available Portban compiler. 

Chapter 2 describes the Ratfor language with sam’^le 
programs. Pew minor modifications made in the language due 
to implementational constraints are also given.- 

Chapter 3 discusses in detail the design strategy 
adopted in developing the preprocessor. Details regarding 
the data structures used, the algorithm employed,- the code 
generation rules, along with brief explanations of few 
important routines are included. 

Chapter 4 identifies those areas where further 
related work can be pursued. 
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CHAPTER 2 
RATEOR DIGEST 

The primary purpose of Ratfor, as laid down in 
Chapter 1 , is to make Eortran a hotter programming language, 
for writing well-structured programmes. This is done by 
providing the control stiructures that are unavailabl e in 
bare Eortran. 

2.1 A Synopsis : 

A context free grammar for Ratfor is given below 
in the Backus-Naur Eorm (BEE) [ 8] • 

<program> :::=< statement > <'program> <statement> 

<statement> ;:= if( <conditlon> ) <statement> 

j if( <condition> ) <statement> el3e < statement> 
j while ( <condition> ) <statement> 
j for ( <initialize> ; <condition> ; 

< reinitializes ) <statement> 
j J^epeat ^statements 

j J^epgat <statement> until ( ^conditions ) 
do < limit ss < statements 
<digitss <statements 
next 
j break 
I <programs 
I other 
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The above BFE specification is simple and straight- 
forward. The keywords "of Ratfor are else , for . repeat , 
unWJ., next , and break . which represent the control flow 
constructs. <statement> is any legal statement in Portran; 
assignment, declaration, subroutine case, I/O etc., or any of 
the ■■'Ratfor statements described. Any Portran or Ratfor 
statement or group of these can be enclosed in braces | ^ 
to make it into a compound statement, which is then 
equivalent to a single statement. 

<condition> is identical to a valid logical expression 
of Portran and <limits> to the DO loop control expression 
of Portran. <initialize> and <reinitialize> in the for 
statement can be any assignment statements involving a 
variable which is initialized and later updated during each 
iteration of the for statement. <digits> stands for a 
string of digits, that is,a valid Portran statement number. 

Type other is an important specification, for it 
frees Ratfor from having to know very much about Portran. A 
statement which does not begin with one of the ke3rwords (or 
<digits> or a ^ ), must be an other . 

Ratfor has the character declaration. In most 
environments this will be synonymous with int eger . It 
is good to distinguish the two types of variables in all 
the programs, so that one can tell immediately what the 
usage of a particular varfhble will be. 



Ratfor has heen designed to make programs concise 
and readable. It is free-form: a Ratfor source statement, 
most of which is written in the lower case alphabet, may 
appear anywhere on a line. It is important to indent 
systematically so as to discern the nesting of control flow 
in the program. 

Ratfor uses =t= for the equality test ,EQ. and 
- 7 = for the inequality .ITE, . The symbols —i , j , and & 
stand for the logical operators, .ROT., .OR., and .AND. 
respectively. The relational operators <,<=,> , and > = 
have the obvious meanings of .IT,, .LE., ,GT., and .GE. 
respectively. 

Generally the end of a line marks the end of a 
statement. But constructions like 

if(c-== NEWLINE) 

linect = linect + 1 

are obviously not finished after the line that contains the 
if and so they are continued automatically, 'This is also 
true of conditions which extend evermore than one line, as 
1 ■„ while (c == BLANK 
c == TAB 
c == NEWLINE) 
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Lines ending with a comma are also continued. Multiple 
statements, separated hy a semicolon, may appear on a single 
line. 

A sharp sign # anywhere in a line signals the 
beginning of a comment, which is terminated by the end of 
the line. This comment convention is more flexible than 
Fortran’s "0 in column one" because comments and code can 
co-exist on the same =line, Ratfor also allows symbolic 
constants which contribute a great deal to the readability 
of the code. Upper case characters are used to make the 
symbolic constants conspicuous. A Ratfor identifier, i.e,, 
a variable name, can be of any length. A decision on the 
actual identifier length is left to the implementation stage. 

An arbitrary Portran program is not necessarily a 
Ratfor program. Blanks are significant in Ratfor in that 
keywords like, symbolic constants like NEWLIRE and 

relationals like >= must not contain blanks or they will not 
be recognized. Purthermore, keywords are reserved, and should 
not be used as variable names. Standard Portran comments, 
continuation conventions and the arithmetic SP are incompa- 
tible, but since Ratfor provides better alternatives for 
each, this is not a serious problem, 

2.2 Control Plow Constructs : 

The control flow constructs of Ratfor are briefly 
described here. These are the features that impart to 
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Ratf or its specific significance. Pew of these are explained 
througi flowcharts in Pig. 2.1, 

2.2.1 IP Statement: 

Syntax: <condition> ) 

<" statement 1 > 
else < statement 2> 

Semantics: This means that ^ the <c'ondition> is troe , 

execute < statement1> ; and if the < condition > 
is false, execute <statement2> . The else 
part is optional. 

Notes: As in most languages, the construction 

if ( <condition1> ) 

if ( <condition2> ) 

<statement1> 

else 

< statement 2 > 

is ambiguous - the else can he associated with either if . 

Braces can he used to clarify this. In the absence of braces, 
each else is associated with the closest prceding The 

example above is indented to agree with the binding rule, 
but it is advisable to use braces in such cases, to make 
the intent perfectly clear. 

2 . 2 . 2 railE_Stat ement : 

Syntax: while ( <condition> ) 


<statement> 



8 


Semantics: The <condition> is tested. If the outcome 
of the test is true, then the <statement> 
is executed, and the while statement is 
reentered. If the tested <condition> is 
falser the execution of the while statement 
is complete. 

2i2<3 POR Statement: 

Syntax: for (<initialize>;<oondition> ^reinitializes) 

< statements 

Semantics: This is equivalent to 

<initialize> 
while ( < conditions ) 

< statements 
< reinitializes 

with one exception given helow* The < initializes and 
< reinitializes parts are single Fortran statements. If 
either of them is omitted* the corresponding part of the 
expansion is also omitted* If the < conditions is lomltted* 
it is taken to he always true, resulting in an 'infinite’ 
loop. 

Notes: The purpose of < initializes and <feinitializeS 


is to provide loop control 





(b) while statement. 
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2 . 2.4 REPEAT-UNTIL Statement: 

Syntax: repeat 

<r statement > 
until ( <condition> ) 

Semantics: The <statement> is executed one or more 

times until <condition> becomes true, at 
which time the loop is exited. Ihe until 
part is optional; if it is omitted, the 
result is an infinite loop, which must be . 
broken some other way. 

2.2.5 DO Statement: 

Syntax: ^ <limits> <statement> 

Semantics: The ^ statement sets up a standard Fortran 

DO loop. <limits> must be a legal loop 
control statement of Fortran, like I = 1,11. 

2.2.6 BREAK Statement: 

Syntax: break 

Semantics: The break statement is one way to get out 

of an infinite loop. It causes whatever loop 
it is contained in (i.e. while , for . repeat , 
or _^) to be exited immediately, - Only 
the loop that immediately encloses a break 
is teminated. 


2.2.7 NEXT Statement: 

Syntax: next 



Semantics: The next statement causes whatever loop it 
is contained in to go immediately to the 
next iteration, skipping the rest of the 
loop body, next goes to the condition of 
a while , do , or until , to the first statement 
of an infinite repeat loop, and to the 
<reinitialize>of a for . 

2.3 Macroprocessing 

Occurrence of the macro names (with actual parameters, 
wherever necessary) in the text of Ratfor program causes 
textual substitution of this name by the body of the macros 
Macro definitions may be parenthesised. As an example of 
simple macro definition, consider 

define (EOE, -1) 

The name of the macro is EOE* The body of the macro is the 
string "-1”. Macros can also have arguments, e^g;,^ 

define ( putc ( c ), put ch ( c > STEOUT ) ) 

The name of the macro is putc(x). The body of the macro is 
the string "putch(x,STDOUT)”, And x is the formal parameter i 

2. 4 Minoi’ Modifications 

The limitations of the available character set in 
IBM 7044/1401 necessitated minor modifications in the original 
description of the language. 

The logical operators denoted by— ij | , and & are 
represented by the Fortran equivalents, .NOT., .OR., and iAND. 
respectively. Similar is the case with the relational operators, 
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like =, =, etc. which are also expressed in the usual 

Fortran manner hy .LE., and ,GE,, etc. respectively. It is 
possible to use only one relational operator == (equals to) 
without any substitution. But to maintain uniformity, that 
is also denoted by .EQ. , semicolon, is replaced by 

and the delimiter for the comment, ", by"/*". 

Since the lower case alphabet also is not available, 
the Ratfor source statements are written in the upper case 
alphabet only . As and when a suitably extended character 
set is made available, all these features which enhance the 
readability of the Ratfor code can be implemented with little 
effort. 

Sample Programs ; 

The features of the Ratfor language are illustrated 
by the two sample programs given below. The first program 
sorts an integer array of size n, by employing the shell 
sort algorithm. The second program converts an integer to 
a character string, 

2.5.1 Shell Sort Program; 

The basic idea of the shell sort is that in the 
early stages far-apart elements are compared, instead of 
adjacent ones. This tends to eliminate large amounts of 
disorder quickly. Gradually the interval between the 
compared elements is decreased, until it reaches one, at which 
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point it effectively 1)60011163 an adjacent interchange 
method. 

# Shell - Shell sort 1f(1) ... v(i 3 ) increasing 
guhroutine shell (v,n) 
integer gap, i, j, jg, k, n, v(n) 

for (gap = n/2; gap > 0; gap = gap/2) 
for(i = gap+1 j i<= a; i = i+l ) 

for(j = i-gap; j > 0; j = j-gap) { 
jg = j+gap 

if(v( 3 )<= v(jg)) 3 ^ compare 
break 

k = v( j) # 

v(3) = v(jg) 5 ^ exchange 

v(jg> k 4 ^ 

] 

return 

end 

The outermost loop controls the gap between compared 
elements. Initially n/2, it shrinks by a factor of two each 
pass until it becomes zero. The middle loop compares elements 
separated by 'gap’; the innermost loop reverses any that are 
ou t of order. Since 'gap' is eventually reduced to one, 
all elements are ordered correctly. 
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2.5.2 Integer to Character String Conversion: 

This function subprogram converts an integer to 
characters in an array provided by the calling program, and 
returns the number of characters it took. The digits are 
obtained in reverse order, and flipped before returning. 

# itoc - convert integer 'int^ to character string in 'str’ 
integer function itoc(int, str, size) , 
integer abs, mod 

integer d, i, int, intval, j, k, size 

character str( size) 

string digits ■"0123456739" 

intval = abs(int) 


i = 0 

repeat ^ generate digits 

i - i+1 

d = mod (intval, 10 ) 
str(i) = digits(d+1) 
intval = intval/ 10 
^ until (intval == 0 | i >= size) 

^(int<0 & i< size) ^ then sign 

i = i+1 

str(i) = MINUS 


itoc = i-1 
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£££(1 = 1; D < i; d = D+1) ^ # then reverse 

k = str(i) 
str(i) = str(d) 
strCj) = k 
i = i-1 

return 

end 

uhs is a function that retiSrns the absolute value of its 
argument. Ihe string declaration used in the above program 
is implemented by means of a macro. Por instance, the 
declaration 

string id "iit” 

is expanded into standard Fortran as follows; 

INTEGER ID(3) 

DATA ID(1)/LETI/ 

DATA ID(2)/LETI/ 

DATA ID(3)/DETT/ 

lETI, DETT, and MINUS are symbolic constants. 

Note ; A major portion of this chapter that describes the 
Ratfor language is of a collatory nature# from the 
book "Software Tools" by Kernighan and Plauger [ 8 ]» 
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OHAPTEIi 5 

EESIGIT Am) IMPLMEmTIOlT OP THE PREPROGESSOR 

Ratfor is a structured extension of Eortran. The 
advantages of implementing Ratfor through a preprocessor 
are [I 4 ] 

1) the specification of Ratfor can he defined indepen- 
dently of Eortran, 

2) programs written in Eortran can he freely linked 
with programs written in Ratfor, 

3) it is relatively easy to implement a preprocessor, 

3.1 The Problem ; 

The input to the preprocessor is a Ratfor source 
program and the output is a corresponding Eortran program. 
The preprocessor should either generate Eortran code or 
simply copy the incoming text after suitable reformatting. 
The decision is made by examining the first token (not the 
label) of a Ratfor statement. If it is one of the keywords' 
then translation to an appropriate Fortran code takes place. 
And if it is of type other (Ref. 2.1), then the statement 
is outputted without any change. 

3.2 Data Structures : 

The following are the important data structures used 
by the preprocessor. 
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3.2.1 Input File: 

The Ratfor source program is read from the input 

file. 

3.2.2 (Dutput File: 

The translated Fortran’ program is kept on the output 

file, 

3.2.3 In-Oard Buffer-GBUF: 

Each card of the Ratfof source program is stored 
in this Buffer in the card image form. The buffer size is 
81 characters. The last element of the buffer - f v 
’(i.,'fe.'th« 81 st'-ion®:)-? is always a special marker, e.g,, 
a dollar sign, $, which denotes the end of the card. 



3.2,4 Out-Card Buff er-OUTBUP: 

This buffer contains one Fortran statement, which 
is obtained after the translation of the source program by 
the preprocessor. The buffer size is 81 characters. The 
Fortran statement is stored in the latter 72 fields. The 
instruction sequence number (ISU), in octal, followed by a 
few blanks, is filled in the initial fields. 
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3.2.5 Push Baok Stack -BUP: 

Any character read in excess from the in-card buffer 
is pushed back into this stack. This is a simple IiIPO stack. 

3.2.6 Token -LEXSTR: 

The Ratfor source statement is divided into tokens 
during the lexical analysis, A token can be an alphanumeric 
string, a quoted string, a single n on-alphanumeric character, 
or an accepted combination of non-alphanumeric characters. 
LEXSTR, at any given time contains the latest token obtained. 
The maximum token size allowed is equal to the length of 
the array LEXSTR. 

3.2.7 Terminal Table-TABLE: 

All the terminals, i.e,, the keywords and the 
reserved words, are stored in this table. Each character 
of the terminal goes into one element of the table. The 
corresponding internal definition of each terminal is also 
contained in the table, which is organized as follows: 

name EOS definition EOS’ name EOS ... 

EOS is a special marker used to separate the names and 
the definitions, e.g. , 






“1 — 







I 

p 

-2 

-10 

-2 1 E 

■L 

S 

E 

1 

-2 

-11 

-2 

L__a_rf .J 


3,2.8 Identifier Table-IDNTBL: 

All thorse Ratfor identifiers having more than six 
characters are stored in this table. Oonsecutive identifiers 
are separated by the special marker, EOS. 
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3.2.9 Parser Stacks-LEXPIP and lABYAL: 

The definition of the keyword with which a given 
Ratfor statement begins is stored in stack LEXTIP.* The 
label generated, if any, is entered into the parallel PABYAl 
stack. These two stacks are very useful in generating the 
appropriate code in the case of nested control structures. 
One or more entries at the top of these two stacfcs are 
simultaneously popped out when the end of a statement is 
reached. 



3.2.10 Reinitialize Stack -PORBUP: 

The reinitialize of a for statement is stored in 
this stack. This stack lends its importance when dealing 
with nested for statements, since the reinitialize s that 
are stored in the stack are outputted in the reverse order. 
An array pointer, iPTR, stores the beginning of each 
reinitialize in the stack. 
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3.3 ^he Algorithm ;- 

At first, all the relevant data structures, pointers, 
etc., are initialized hy calling the IFIT routine. Then the 
major controlling routine PARSE is called* This routine 
analyzes (parses) the grammatical structure of the input 
and takes the necessary action.- The PARSE routine can 
determine the grammatical structure of a Ratfor statement 
only when the first token (not the label) of the statement 
is classified. The function GETTOK, as the name suggests, 
gets a Ratfor token. It also classifies the token as a 
keyword, identifier, literal, etc. In principle, associated 
with each rule of the grammar (Ref. 2,1) is a semantic 
action. In this context, the semantic actions are simply 
reformatting the incoming text and/or generating the 
Eortran code. 

The PARSE routine also stores information about the 
tokens that start a valid Ratfor statement, so that the 
correct terminating code can be produced when the end of 
the statement is reached. The routine UJTSTAK discards the 
information on which necessary actions have been taken. 
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"When a full line of Fortran statement is obtained, 
it is kept in tbe output file. And when the PARSE routine 
encounters the end-of-file marker (EOE) it returns control 
to the main program which then outputs the complete trans- 
lated Eortran program. 

3*4 Gudielines for Code Translation : 

The basic guidelines by which the various Ratfor 
statements are translated into an equivalent Eortran code 
arc given below. 

3.4.1 IF Statement : 

Ratfor: c if { <OQnd).tion> ) 

<• statement > 

Eortran: IE (.NOI.C <condition> ))G0 TO E 

<'statement> 

1 GORTINUE 

Let us now take an if - else statement. 

Ratfor: if( <condition> ) 

< statement1> 

else 

<statement2> 

Eortran: IE(.NOT.( <condition> ))(K} TQ L 

< statement 1> 

GO TO L+1 
L CONTINUE 

<statement2> 


L+1 CONTINUE 



When an if statement is seen* two consecutive labels I and 
L+1 are generated^ If there is no else following an if, then 
the label 1+1 , though already generated* is not used. 

3i4i2 WHliiE Statement: 

Ratfor: while ( <condition> ) 

<statement> 

Portran: OOWTimJE 

L IP(.NOT.( < condition? ))&0 TO L+1 

< statement > 

GrO TO L 

L+1 COWTIITUE ; 

The unlabeled COWTIMJE before the IE statement takes care 

of the case when the while statement has a label. Then the 

.. , i: 

while label is kept in the statement number field of the 
above COWTIMJE* J 

3*4*5 EOR Statement; 

Ratfor; for (<initialize>;<condition> ;<'reinitialize> 

< statement? 

Port ran; OOWTINUE t 

<initialize? 

L IP( .ROT. (< condition? ))G0 TO L+2 

< statement? 

L+1 <reinitialize> | 

GO TO L . i 

L+2 CONTINUE | 

Here three consecutive labels are generated. 
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3.4.4 REPEAT-UFTIL Statement: 

Ratfor: repeat 

<statement> 
until ( <Gondition> ) 

Eortran: CONTIFUE 

L GOFTII'IUB 

< statement > 

L+1 IE( .FOT. ( <condition> )) GO TO 1 
1+2 OOFTIFUE 

An infinite loop occurs when the until part is not present. 
This is obtained in the Fortran code by replacing the 


IE(.F0T.( < condition> )) GO TO L by just GO TO I. 

3.4.5 EO Statement: 


Ratfor: 

Eortran: 


do <ltmits> <• statement > 
EO E <limits> 

< statement > 


E GOFTIFUE 

E+1 GOFTINUE 

The ^ statement in Ratfor is essentially same as the Eortran 
PO statement with the label, E omitted, 

3.4.6 BREAK Statement: 

Ratfor: break 

Eortran: GO TO E+1, when the loop that immediately 

encloses the break is a while 
or 

in case of for or repeat 


GO TO L+2 
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3.4.7 NEXT Statement; 

Ratfor; next 

Eortran: GO TO L in case of while , infinite 

repeat or do 

GO TO L+1 in case of for or repeat-until 

3. 4. 5 CHARACTER Declaration: 

cEaraoter declaration in Ratfor is simply converted 
into a Eortran IRTEGER declaration. 

3.5 parse and GETTOK Routines ; 

PARSE and GETTOK are the two major routines. A 
clear description of ■ these two routines contributes 
a lot towards the design and understanding of the rest of the 
preprocessor code, 

3.5.1 The PARSE Routine: 

Data bases: lEXSTR, lEXTYP, LABYAI 
PARSE routine ensures that the code generation 
operations are done at the right time with the right values. 
Initially, the first token of a Ratfor source statement is 
examined. If it happens to be one of the following keywords; 
if , else , while , do . for , repeat , until and begin , then the 
corresponding definition is pushed onto the stack lEXTYP. 

The code generation routine for that keyword is called if 
there is one. The routines for keywords, if, while , do. 
for and repeat generate and return a unique label, LAB, 
which is placed on the parallel stack of label values, lABVAl, 
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And if the first, token is keyword character , then the routine 
for converting this into a Portran INTSaER declaration is 
called. If it is of type digits , then a routine is called 
which checks the label for possible conflict with the generatitu 
labels, and the label is entered into the statement number 
field of the out-card buffer, OUTBUP. 

When the first token is one of the following: 
type other , break , next , close and semicolon (;), it 
denotes the end of the statement corresponding to the top 
of the stack, lEXTYP. The routine UNSM is called which 
may pop one or more entries off the stack as the end of the 
statement is reached. UWSTAK is turn calls the appropriate 
routine, if any, that produces the terminating code. The 
PARSE routine returns control to the main program when it 
sees the end-of-file marker. This routine also ignores 
blank lines in the input Ratfor source program,. 

The following error messages can be reported by the 
PARSE routine : illegal else , illegal until , stack overflow, 
illegal close and unexpected end-of-file marker. 

3.5.2 The GETTOI Routine: 

Data base: lEXSTR, 

The function subprogram GETTOK separates the input 
Ratfor statement into tokens. Comments are ignored. 

Similarly blanks that separate tokens are also ignored-. 

GETTOK gets a character through NGETO., which obtains one 
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character at a time from the input including those that are 
pushed hack;. PUTBAK pushes hack one character onto the input. 
TYPE determines whether a particular character is a letter or 
a digit. Two flags SEMCOB and PRE7 are set to 1 and 4 respec- 
tively^ whenever a semicolon ( . , ) or an end-of-line marker ($) 
is seen, hy GETTOK, 

When the token obtained is an alphanumeric string, 
then ALIDIG determines if it is ah literal (containing only 
digits), or a possible identifier, or an improper identifier 
(i.c. an alphanumeric string starting wihh a digit). When it 
is a possible identifier then the routine TRMWAl is called.. 
This looks up the terminal table, TABLE, and if the token is 
found then returns the corresponding definition. If the token 
is not a terminal symbol, then it is, obviously, an identifier. 
If the identifier has more than six characters then the routine 
IBNTER is called. The long identifier is truncated into six 
characters. But in order to distinguish between different long 
identifiers starting with the same first six characters, a 
separate identifier of length six is generated for each long 
identifier. This is done by converting the index, an integfr 
number returned by the routine IDNTER into a character string 
and appending it after the first few characters of the long 
identifier. Thus a new six character identifier is produced. 
This imposes a restriction on th e Ratf or identifiers. Any six 
character identifier should differ from any L other longer 



28 


identifier in the first four characters, GETTOK increments 
a line counter for each Ratfor source line that is read. 

In summary, the function GET TOK returns the following 
values, besides the token stored in LEXSTR. 

GETTOK = 0 » if the token is a literal 

=1 > if the token is an identifier 

=2 > if the token is a special character 

= 5 , if the token is a- possible improper 

identifier 

= definition, if the token is a teminal ^mbol 

= -1 » if the token is the end-of-file 

marker, EOE 

PRE7 =4 , if the token is the end-of-line ■ 

marker (f ) 

SIMOOI =1 » if the token is a semicolon (.,) 

The following error messages can be reported by 
GETTOK: token too long, missing quote, illegal character, 
and possible improper identifier. 

It is not difficult to understand th e significance 
and theroperationd-l : details of the other routines (see 
Appendix D) , 

3.6 Integrating the Preprocessor with the IBM 7044/1401 Systan : 

In order to execute any given Ratfor program it is 
sufficient to execute the translated Eortran program-, produced 
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by the preprocessor.. The Fortran program can he executed 
hy running it on any Fortran compiler. 

There are two Fortran compilers available on the 
resident IBM 7044/1401 system. One is the |IBFTC compiler 
under the fIBJOB processor and the other is the in-core 
WATFOR compiler under the ,ftEXEGUTE monitor. 

During the preprocessing stage some errors are 
detected in the Ratfor source prograDi and reported. But 
these error diagnostics are not exhaustive for the simple 
reason that in some cases parts of the Ratfor source program 
are simply reformatted and copied without testing against 
possible errors. These errors will, of course, be pointed 
out by the Fortran compiler. A cross reference table between 
the sequence number of Ratfor statements and the corresponding 
Fortran statements i s made available by the preprocessor. 

It is easy to trace back any errors, pointed out by the 
Fortran compiler, to the original Ratfor source program, 
provided one can a priori know the instruction sequence 
number (ISN) of the translated Fortran program. 

The fIBFTC compiler does not give the ISl/s in sequence. 
It is difficult to know a priori the ISR of any given Fortran 
statement if the flBFTO compiler is used. The WATFOR compiler 
gives the ISRs (in octal) strictly in sequence. And also 
WATFOR error diagnostics are very good. Thus, the WATFOR. 
compiler is better suited to facilitate trace-back of error 
diagnostics. 
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The preprocessor itself is kept under flXECUTE monitor. 
The preprocessor reads its input, i.e., th e Ratfor source 
program, from the system input tape (unit no.5)i and the 
output, i.e., the translated Fortran program is written on 
a scratch tape , say tape 1 , 

After the preprocessing is done control is transferred 
to the ¥ATFER compiler, a slightly modified version of ¥ATEOR 
compiler. The ¥ATEER compiler is loaded into the core over- 
writing the preprocessor. The only difference between ¥ATEOR 
and ¥ATEER compilers is that the I/O routines of the ¥ATEOR 
compiler have to be changed such that it reads input not from 
the system input tape (unit no.5), but from the scratch tape, 
i.e,, tape 1. This ¥ATEER compiler is also kept under the 
f EXECUTE monitor. The output of the ¥ATEER compiler, that 
is the actual output to be obtained after the execution of 
the Ratfor source program, is however, written on the system 
output tape (unit no. 6), 
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CHAPTER 4 
GONOLUSIOHS 

The pros and cons of implementing a preprocessor for 
a language like Eatfor are described. Later, the areas of 
further work are discussed. 

4.1 Pros and Cons f?! 

The positive aspects are that 

1) the preprocessor attempts to correct the paueity of 
control structures in Eortran, 

2) it is simple to implement a preprocessor, 

3) adoption to Ratfor is not difficult because it is 
close to I'ortran. 

The following are the less positive factors with 
regard to the translated Eortran program: 

1 ) It contains some extraneous CONTIFUE’s, double Jumps, 
and inversions (.NOT.’s), These could be removed by the 
preprocessor. 

2) It could be longer than a Eortran program that is 
hand -written. 

These two disadvantages increase the overhead on compilation. 
But as the designers of the Ratfor language feel, one might 
need fewer compilations, because the program works sooner [8]. 

4.2 Euture Work 

A macro processor can also be developed. |Op.§f way of- 
designing a macroprocessor is by suitably mc^ifying the PARS^f 
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routine of the preprocessor. Another way of doing this is 
to develop a macroprocessor that acts as a front-end to the 
preprocessor. Ihe former method involves iesser overhead, 
while it is easy to design and understand a full-fledged 
macroprocessor if the latter technique is adopted. 

An execution profile of the Ratfor source program 
reveals that much time is spent in table look-up. Moreover, 
when the macro processor is also added, the linear search 
method that is employed becomes inefficient because of higher 
execution time. The running time can be reduced by adopting 
either binary search or random entry search (hashing) [ 4j . 

When a larger character set is available, one could 
inelude all the original Eatfor symbols (e.g,, ^ < , > , 

j , &, etc,). It is a simple task to implement these features 
in the preprocessor that is presently designed. 

It, would be worthwhile if the various preprocessors 
that implement structured Fortran are standardized. 

In the end Ratfor is just a tool with good points as 
well as limitations. Writing programs in Ratfor does not 
necessarily mean one is doing structured programming, nor 
does it completely solve the problen of large software 
production [15]. Hevertheless, its merits are numerpus and 
its careful application should prove beneficial. 
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APPMDIX A 
TERMINAL TABLE 

The terminal table contains the Ratfor keywords and 
the reserved words and also their internal definition. 


Name 

Definition 

IP 

-10 

ELSE 

-11 

BE&IN 

-12 

CLOSE 

, -13 

POR 

-14 

WHILE 

-16 

REPEAT 

-17 

UNTIL 

-18 

BREAK 

-19 

CHARACTER 

-20. 

EC 

-29 

NEXT 

-30 

INTEGER 

-21 

LOGICAL 

-22 

SUBROUTINE 

-33 

PUNGTION 

-45 

LOUBLEPREOISION 

-46 

DIMENSION 

-47 

COMPLEX 

-48 

external 

-49 
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1. INIT 

2. PARSE 

3 . UlTSM 

4. GETTOK 

5. TOTAL 

6. IDNTER 

7 . SPOIAL 

8. AILDIG 

9. TYPE 

10. RGETO 

11. PUTBAK 

12. GETO 

13. PBSTR 

14. LEXPB 

15. TRNSPR 

16. lECOLE 

17. LOO OLE 

18. WHILEO 

19. EOROOL 


APPEtmiX B 

BRIEF LESGRIPTIORS OP ALL THE ROUTINES 

- initialize all the relevant data structures and 
fill in the terminal table 

- the major controlling routine that parses the 
Ratfor source program 

- unstack at the end of statement 

- get a Ratfor token and classify it accordingly 

- locate the keyword/reserved word, and extract 
definition 

- stores all the identifiers having more than 
six characters in the identifier table and 
returns their respective indices 

- checks if the given special character is a 
valid one or not 

- tests if the given token is an identifier, 

a literal, or a possible improper identifier 

- tests if the given character is a letter or a A-igit 

- get a (possibly pushed back) character 

-push character back into push back buffer 

- get characters from the in-card buffer 

- push string back onto input 

- push the latest token obtained into push back 
buffer 

- transfers the token or the for reinitialize 
into an intermediate buffer 

- generate initial code for 

- generate code for beginning of ^ 

-generate code for beginning of while 

-generate code for beginning of for 
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20. :^G0D - generate code for beginning of repeat 

21. EISEIF - generate code for end of ^ before else 

22. lOSEOTT _ generate code for end of repeat before until 

23. CHAMG - converts a Ratfor character declaration into 

a Fortran IFTEGER declaration 

24. LA.EE1G — output statement number 

25 . BRKRXl — generate code for break and next 

26. OTHEEC — output ordinary Fortran statement 

27 . ENEFOR - generate code for end of for 

23. WHILES - generate code for beginning of whil e 

29 . DOSIAT — generate code for end of do_ statement 

30. IFGO - generate ''IF( .HOT.(<condition> ) )G0 TO L" 

31 . LABGEIT - generate n consecutive tcOfevcly, return the first 

on e 

32. BALPaR - copy a string with balanced parentheses 

33. EATUP - process rest of statements; interpret 

continuations 

34. ITOG - convert an integer number into a character 

string 

55. GTOI - convert a character string containing digits 
into an integer number 

36. OGTAL - converts a decimal number into an octal number 

37. OUTRAT - outputs a line of Ratfor source program with the 

‘ ■' line number in octal 

33. LEXOUT — puts the latest token in the output buffer 

39 . O0TTAB - get past column 6 

40» OUTNUM - output decimal number 

41 . OUTGO - output "GO TO JT" 

42. OUTGOF - output "F CONTIFUE’* 
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43» OUTDOF - keep a full line of translated Fortran program 
in the output file 

44. OUTSIR - output string 

45. OU!EGH - putsone character into the output buffer 

46. ERRI'IES - report the relevant 


error message. 
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IPPENDIX G 

LIST OE ERROR MESSAGES REPORTED BY THE PREPROOESSOR 

1. TOKEI TOO LONG- 

2. POSSIBLE IMPROPER IDEtJTlEIER 

3. ILLEGAL CHARACTER 

4. ILLEGAL ELSE 

5. ILLEGAL UNTIL 

6. STACK OVERFLOW IN PARSER 

7. ILLEGAL CLOSE 

8. UNEXPECTEL ENL-OE-EIIE MARKER 

9. POSSIBLE LABEL CONELICT 

10. MISSING LEFT PARENTHESES 

11. UNEXPECTED SPECIAL CHARACTER 

12. MIvSSING GONLITION PART IN FOR STATEMENT 

13. MISSING RIGHT PARENTHESIS 

14. ILLEGAL NEXT 

15. ILLEGAL BREAK 

16. UNEXPECTED BEGIN 

17. UNBALiUTC ED PARENTHESES 

18. TOO MANX CHARACTERS PUSHED BACK ONTO INPUT 

19. IDENTIFIER LIBLE OVERFLOW 

20. MISSING QUOTE 

21. DEGREE OF FOR LOOP NESTING EXCEEDS THE LIMIT SPECIFIED 

22. UNEXPECTED SEMICOLON 

23. STATEMETT NUMBER TOO LARGE. 
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APPENDIX D 

LISTING OP THE RATPOR PBEPROGESSOR PROGRAM 

AND 

SAMPLE OUTPUTS PROM THE PKEPROOESSOR 


The flow of control in the Ratfor preprocessor 
can be readily understood by the subroutine tree given 
in the next page, MAIN denotes the main program and all 
outpu t routines are removed, since they contribute no 
complexity. 







rITFOR PRePRQCgSSak 

THIS PRERROCISSOR iCClRfl iJptl'pR'-'SigURCE PROGRAM AS 
flWO 6E«IRATfS AH ilSUtV#|Nr''Ri|RtRAN PROGRAM AS THE OU 
THE ROUT I we •PARfcg* C Alt SO OT tWE rAIn prOGrAM INVOKE 
VARIOUS cool GENlRlTION'-i^UTIMSS* TrE TR&NSEATED FOR 
SC OftTAIWfOt IS PRlfflN- GN^APC U ’PARSE* rETUrNS C 
WAiW PROGRAM WHEM AW tWO.^OP-Fll| IS iWCOUNTEREO, .THE 
PROGRAM THIN OUTPUTS THt FORTRAN PROGRAM ANO SToPS, 

INTEGER' OUTSUFIdlHQOTP.iOF 
COMMON /if/ OUTP.OUfiUF 
data EOF/lNl/ ^ ' 

CA*»e H'liT ' ^ 

WRtTE{6flo4l ■ . 

WelTEtAttOO} 

REWIN© I ■' 

CAIE PARSE 
WRITItAtlOli ' >' '' 
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Rf Antlpliil.’’ *IOUTEtlPlAltiJ«l#ail 

' I00r8UFt4l«4«l*EI) 

lNiil«l1^i^4liRt*RATF0R SOURCE PRG6RAM«ft///l 
5S3fe .iSi'.' iiS5SR.»TBANStATE0 FORTRAN PROGRAM*t///i 


RAfJOOOS' 

RAOOOU^: 


SygRQUTiNE lN*1f 

ItllS SUEROUTInE IisinSAUIES pit THg REI 
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COMMON /t^7 iPf&XTTPttABVAEfTOXEN 

ITmm Jti|fcR.Ol|TBUF , 

COMMON /lli/ l-AiEL 
DATA BEAWK/IH a 
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FOWWIIHAII ^ 

RfeftalUtlOll HAXTBiiMiXPfR 

f-C'8HilT«2l3l 
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t xt4AMXtA|tiXtI3«2XiA2i7Ai9XttfAltXiAI*2XtBt2X,A2t/t2f 

% Xt3Al#iX#Ait2Xi 13g2X*A2l . ■ 

AEA0ISf22il |fA«iiiIliI«liat»2«0l #1 5»o 

19# fi9«*IArt20|#l 

l|!#l 

t.A|iL»)9999 
Ofi 10 

19 0IITIU^III*'8I.ANX 
09 li I * itao 

11 

m ,.lls t% f l»io 


f»|00RA*< A^O IN'_tURM CAl^ 


IMIS mmm 
the appropa 






TNTf;6ER t.gXSTRl50i tiABVALt90|*t,6XTYPlS0S#PREVtT0KSUtT0Kf:N 

ir4Tt*aER eeTTOKtscMcai.sp / •' 

COf^WON flU L^XSTRfTQKSU ^ 

COMMON /LS/ UNECTiSSMCOLtPREv 

COMMON /L?/ SP.lgXrVPttASm.tOREN ■ 

OAT A MAXSTK/SO/ 

TOX6N«GCtTQK<JACKl 

iFCTOKiN4l| ZOltSOOiaol _ ^ ' 

IF«PRSV*eQ*A •OR* SeMCOl*6Q*ll &0 Tq 200 
IPtlOXEN *141* t-|OH GO TO 202 


20? 


20 » 


204 


20S 


200 


CAa'IPCOOIttABI 
GO TO 212 

IPtTOKEM mHim 1-29)1 GO TO 203 
CAti OOcOcilLAi) 

GO TO 212 

tPlTOXEN •HI* t-lAl) gO TO |04 
CALI MHlliCaAB) 

Go To 212 

ipITOKIN .HI. GO TO 20S 

CAil. loRCOOitAII) 

■ ^1% f'ft '5i^ 

IPITOrIH .HS* t-nil GO TO 200 

cAit RiPCeOILABi 

m TO 112 

IPITORIH .Hfi* l-U)l •« 

. IfftiXTYPfSP) .Hi# «"W») -f® 

CAiti kstlFtt-AiVAllSPil 
' GO TO 212 ^ 

c*0» iftRQR MtSSAGI - litiGAt fLSi 

ISH*A ' ' ' 

CAit fARHiSUSM) 

GO TO 212 ^ ^ . 

20t' iPfTQHiH .Nfi* Tfi 209 

IFlilXTTPlsP) 

CAit REPUMTtiABVAttSP)* 

GO TO 212 

tRRflII ^HISSAGI - luEGAl UNTIL ■ 

\SiAiriki«NiSiisMi 

10)) GO TO 111 


201 


I'. 


IPCSP .If. m 213 

c*** IftftOR MESSAGE - STACK CtER?toW 

1SN«4 

CAIL ERRMEStlSNI . ' 

2i3 CgATYPISPl-rOKEN 

lAiVAtlSpKA® 

ci TC 100 

2}.A IFITOKEN •HI* I-13II ©o TO 211 

IFllEXTtPtSPJ .HI* GO TO 218 

SP«SP-l 
GO TO 2IS 

C*** ERROR message - ILIESAI. CtOSE 


2l*> 


CALL tRRMilttSfi) 

00 TO 210 

REN •«!• t-l9> •AND, TOKEN .Ni. f-30>l GO TO Z17 
CALL IRrHAT 
60 TO 216 
21T CALL OTMIRC . 
t*m Fiep At THE NEXT TOKEN 
216 |0KIN»66rreKUACK» 

iEtTQKBN#tl 21ffS00#ll« 

21f |PIPREV*EQ«A •0R« SE«COl»EQ.II GO TO 216 
CALL L6RP6 
CALL UNSTAK 

60 TO 203 ' - 

SO© lElSP -.Ei* 11 REtuAW ^ ^ ^ ^ 

c*** IKROI NfSSAfil * ONlXPiCTEO ENO-OF-FILE 
IIIRii'' 

call iRAMfSIlSHI 

■ nimm ■ ■■■•"-«■ 

• me :< 


INTtSS CoS5*Jf *ivl NULliie.»UOlB. sEHeOl..S^D6x.TI>MDEX.BeN 

Ia f Of / blank/ Ih /*SLASM/lH//fOOT/lM./ 

iliiCi|L-0 
’’ iMffciTCfCl 

IFU .10* fiOPI 60 TO 15 

IPIC *§6* 6 LANK I 60 .TO 1 
CALL pytiAKtCI - ■. : ' 

IFIl .68. *»l 80 te a 




ERROR MESSAGE 


lEU 


z-ngetciiexstrum 

lEITYFEClJ .EQ, 21 SS TD 3 
1*1 ♦! ■ . ■ 

GO TO 2 *■ 

mt .LY. 22» GO TO S • 

TOKSIi-20 - ■ 

1*1 ~| 

- TGKei« TOO LOWG 
lSN«l 

CAil ERRRESaSNI 
CRLt WTiARfLEXSTRtll) 
l«MGfTCICI 

I «.g O«i EOF I GO TO l5 
IFtTYPEtCI »m» II GO TO 4 
Cull PllTiRK(C| 

60 TO 14 
iGT. II GO TO 13 
KEXSTRIll 

IFU •164 SMSHt GO TO 6 
|RZ .ffl. DOT I GO TO 7 
iHl mm* HUtlNEl 60 TO 14 
GiTT0K»2 
T0RSI2-I 
PRiV«4 

iIlilCT*ilNECT4l 
RgTUitN 

»l«i« OUOTil % TO 29 
l*»l ^ ' 

. 2«l4| 

IFlNGEtCiilXSTRCiH 
IFlifxSTRfll.Ni^QUOT 
ISNmIO 

, CAlt eRRMfSMSMI 
tEXSTRlII-fiOOTg 
" CALL PuTBAKtNUtINEI 

CAIL SPClALtSpOIXt 
|P(SP0iK4l) IS.tS7fl6 
C**# ERROR RffiSAGE - ItLEIAt CHARACTER 
i? ■ ISN-3 

CAEl ERRRESUSnI 
^ .. ' ' 60 TO 22 

C44!^ TORfR II A SRICIAi CHARACTER 

It GfiTT0K«2 

^ T0KSI2»I 

PREV-gETIQR 

4 lFtH6|r€lliXSTRl2|l •!«• S1ARI 60 TO .10 

GO to-' 6 

IHHiircatKSTRiail ,|0*^eCHHAI GO TO f 
CAli*C'' PUT 


14 

24 


EG* QUOTE) GO QQ I 
•AHO. l*LT»2f) 60T024 


29 


8 


itftAKaiRirRtin 
GErtORpI'' ■ 





lOKEN IS i 
f 


C*«« STHIP TMfi t 

IQ 


T 0 ltS'll«j 

PRtV«G6 

SfWlCOiOi^ 
SgfTOK«**43 
TC|tSlI«a 
P«|V*QEttS 3 K 
SiMCOUl 
RETU{^»i 
WiNfS 

iPfpRgv «Ea» 
1P« PWV 


.N6# NQtINEI GO TO U 


t-an sD TO 13 

•EQ* 41 GO Tq 12 

11 ' ■ - C0KTINUI 

IHNG6TCH.f>tStR(lH NUUNel GO TO ll 

. : ^ : : :i ■ . oeTTOK"® 

, : : : ^ fOKSIl*'! 

pRiV*4 

tlNSCT'-tlNECt+l 

RETURN 

12 CONTINUE 

IPtNGErClLlXSTRClII 

CO to 22 

13 CRU PyTSRRHEJTSTRiUI 
rORS|I»l-l 

PRfN»gtTTQR 

IPfCETTON •HI. 31 60 TO 19 
t*** 8R«Qi NfSSiW - TOSSliti iNPROPgR lOgMtlPIER 

v.lSN«»l 

CRii iRRNgSIlSNI 
■: 60 TO tl 

19 i.N|* ll RETURN 

. ".'V' .-r cmi. TRNWRtlTRWOgXaOiPNl 
' ■ -vw vififaNUiX^ll 20t2l*t0' 

€••• TORIN 16 II TIiNiNAt STN60L 
»« ' ■ ©grTOR-oePN 

RETURN 

2i 6ETTQR*1 

IplTOKStl .l-E* RETURN 
CAli IOnTPRHONOEXI 
lEN-ITOCCiONOEXtSTRl 
IFILIN 0hL II 60 to 21 : 

tOK,SIl"«6 
tEXSTR|lil*STRlll 
RETURN 

,, , TORHI«i 

^ LiXStRtSI-STRIII 

tgXSfRt6l"StR|l| 

RfiTURN' ■■ ' ' 

ENO-CF-PllE iNCQUNTIRiO 
15 GlfTOR— I 
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subroutine UHSTIiR 

INTEGfR i6XTTPl5©lilABVAHSOKSPtTOKEN 
CONHON /IT/ SPtlEXrVP.lASVAUmiN 

THIS SU0ROUTINI TAXES CARE OF THE END OF A RATFOR STATEMENT 
AND, IF NECESSARY. GENERATES THE FINISHING CODE 


SF»SPtl 

SP*SP-,I 


iFtienmUM leafi-ijn Returm 


'll miflp |r r -f ^ 1 ’ll k m li% 

ipiiiXTYPtSFl ,iQ*. l-w* •AND* TOKEN .EQ# <»IIH RETURN 
iFiiBKTVPlIpI tNI. *-iO>l GS to 2 

OUTCOmtABVAl.C SP II 
‘ §0 TO i 

IPaiKfmSPI *NEii l-llll GO TO 3 
IFtSP •€?• 21 SP-Sp-1 
4ATA*MiV^^*SPl4l 
CAtt OUTCONIJATAl 

iFitStmspi *‘’^®**' 

IFatXTTpISFI .Hi; t;ni gO TQ a 
■* eAI»fe OU^GOHiBYAtfSPII 

JAYA««iAiVAilSPHl 
:.v GALL .IWfCQHyAyAI 
, 60 f 0 I 

lFll.tKIYPi#> •Hl« <-2fir00t0 S 

mi ®eiTifitAiYAi.ispii 
■ ■ 68 TO 1 

i CAii'lHfiP'fiMiAimiSPlI 

'iPtijSTlStiri .fo*, CAii MHaisaAiVAiiSPii 

TO I'" 


I’ 


fiRKHXT 

COOi FOR BREAK AND HlxT STATEMENTS 



L^X^tlXTtPt S* 

IPILfX*Ne*l-l6l .AND. L£X.NE,|-29H 2 

4A¥A«*UeVAlUl 
GO TO 5 

? IPUEX .NE* fiOTO i 

aAYA-UBVALiIHl 
IPimiN .HE. t-lfll GO TO A 
GiNlRATi C006 POR BRiAR 

lATA«JAYA4i 
CAti OuTGOtUTAI 
return 

GINiRATf cool POR NEXT 

4 CALi OUTGO! JAYAf 
RiTURN 

5 iPIfOREN. *fG, I-IGII. 60 Tq 6 , 

ERROR NISSA6I • lilLEiAt. NSXf 

CAit ERRNESdSKI 
RETURN 

ERROR MiSSAGE *• ILt-fiGAi BREAK 

6 SSN- 1 § - . 

CAit. GRRNeStlSNt 
RETURN 

ENC ■ 

C . ■: '■ ' 

C , ' ■ 

SUBROUTINE fORCOOfiABI 
t 

c This SUiRCRlTINI iiHiRATIS THE CODE At THE BEGINNING oP A 

C POi If AflNfNT ' 

C PiA®tlll-«^ 1 NMIN THE I*TH FOR iOOP HAS A HISSING CONDITION |»ArT 

C PiAGafit « i NHIN THI l*TH FOR 10OP HAS NO 'Rf INITlAillEt PART 

^ INTfSii FOREOFIiSliilXSTRISO»*lFNOTlt9|, TBKSUtPREV 

IN? IGiR Ft Ail li It Ft Aial 5 it FPTRI S I « SENCCCi GEfTORt RPAREN, EOS 

CONNim m/ ElXSTRtToKSlI 

CONNON>:AiiF tlNiCTiSlHCOWiFRIV 

CQRIRIN /ift/ FCRlUPtPtAGl.FtAG2tFPTR,R.RNT 

DATA i|AREN/lWI/tRPARgN/lHl/tE0S/2H-l/.F0R&UF/%AlH / 

DATA lfN6Tm«ItlHP,IH|,lH.»lHHtlM0tlHl.lH..IH«/ 

DATA N^i#tR,NT/0/tMAX^S/ 

SEIIIt tii* HAXI GO to 20 
'' V||n« 2 | 

CAii iRRHEStlSN) 

RETURN 

?.0 PPTR1KNTI«R 

DO 21 1 - RNT.NAK 
Fl.A6ltl|«0 
21 PLAG2ll>-'i 



lAO*U0GtMOI 

CALi aUTCQNIOJ 

CAtl. OUTTAS , ■ ^ 

IMOU-GfiTTOKUACKl ^ ^ '* 

IFIINOU •€««' 81 gQ TC I 

t*.** EHROA m%shm • left pirsh. missing 

iSN»lO 

CALL EAAMSSUSil 
6o TO I 

1 lEtteXSTRIli •IQ* IPAREN} GO TO Z 

Cp^m ERROR wtSSAGf - SOME OTHER SPECIAL CHARACTER IM PLACE OF LEFj PAREN. 

call lAiMESasm 

2 INcy^Gt^'^QRIJACAi 

3 IPISeHCOi 1 1 SOTO 4 , 

tpm COPT TH| TNtTIAllZE PART 

n CAU 4iX0ur 

IIIOO«SErTQR(4ACK| 

' : ' IPtSEMCOL .Mi* II SoTo 22 

CACi OUTOCIN 

4 lN0U*GiTTORt4ACKl 
' CAli rixpi 

• IFtSiMCOI. II SO TO 4 

t*** EIROR MfSSASf - MISSIM® CONCiTIQN PART 
I iSNikll 

CAiL lifiHlSflSMI 
aASiiKMn«i 
9 WOU^SIfTSKUASMl 

SKil^ TM« ifSf ,01 l«® tlNi 

r tPIPilT 41 00 To S 

:,s,ilTpi 
luN^II 

f 'li ' 

TmifMOTlfSl 

ORlJACKl . 

10 COPT TWfi CON0ITIQN PART 
? CAiC i'iiOtjT 

liofeiirmuACKi ^ 

IPfSil^OL •«6* il Gfl^p T 

' pli.4 outcmirpaIeni 

m>QlltCM«RPAReW» 
ilfPt.Ai42 

riQKIJACRI 

•Ml* t-UIl SO TO 18 ■ ■ 

L iIXPB 
SO TO 13 

18 IFtPRtV A> SO TO f ^ . 

£••«> ERROR MKSSAGI - MISSInO RlSMt PARfM#' 

13 lSM*lf 

CALI 6RfiMIS|lS!ll 


A PI 

rill 

cay 
"lisp, „ 
Cop* COiilp:. 






GO TO 11 . ■ 

« iFtlfXSTRIll •iCi# RPIRfiNI GO tQ ll 
t*** KE^P THi mtHtfUtm PART In A BUPPER 
00 l0 I • ItTOKSU 
PQRIUPIKI-ieKStRaj 
to R*K*l 

GO TO B 

€•♦* IF iOFFIR IRPTY# RESIT FLAG2 

1 1 IFIFPTRIRNTI •lO* rI 60 TO 25 , 
FORI!UFlRI'*IOS 

RITURN 

25 FI.A«tli»ITl*0 ' ' ■ 

Retuwn ■ 

INS . - / ■ 


SUtROUflNI INSpORdASl 

C*#* 6INIRATI COOl At TMf 8N0 OF A FOR STATSNINT 

INTIGIa FORiUFiBOli OlUFCfQ t•FiA6l^s> .FtAGZI SI tFPfRt SI 
COMMON YU/ PORBUFt FiASl* FLAGitFP TRt K, KNT 


€<«>•« 


C 

£ 


IftlFUGliKNTI ftlQ* t I 
tPlFiAGlIRNTI *Ni* ll 
OUTPUT Th* •INITIAHII* 

■; jAf Ap|,A§f 1 
CAii WtNUNUATAl 
Ciil. QUTTAB 

CrU TRNSfRil.iIPtitN.al 
CAii QUfSTRIlBUF.ifNI 

cAii mtm 
CAii OytiOtliABI 
JAVAPiABtt 
CAii QUT60NtJ*TAI 
R«f»RNt*-l 
RiiR»**iliN*'i . . 

Rftimw ' 

8NS " ' ' 

"lUiRCWtlNl IFCODiliAII 
IPOQfiAS) 


GO TO 2 
GOTO I 

PART WITH tMi PROPER iABli 



SUaROUTINi ne nil 

generate CODE FOR B 6 S INNING OP 00 $TAT€Mljt|T 

INtiGER oOSTRdI ■ '' i 

OAT A OOSTR/IMC.IHQ/ 



mm 


% 


t 

c 


CAil. OUTTAS 

CAtt OUtSTR«OOST«,2l 

iLAB«UMim« 2 » 

CAtt OUTNU«ClAa> 
fAtl EATUP . 

ait oytoow 

A|TUR« 

SNA 



CALI QI1TCQIII0I 

LAe<AS 6 i«f 21 

CAt.1 QUrNyMIiAi 

JAYiil.A 0 «l 

CALL IPGoUAYA) 

AEtURN 

fiNQ 


Pda iiGlNNific OP wigt statement 


SUAAOUTINf iiPCGCilAil 

CINIAATt TMl INiriAl COQft PqR RfPiAT SIATeMeMT 
LAIvLAAiINff} 

CALL OtlttONIOI 
CALL OUfcCNiaAll 
RefyRM 


c 

^ IMIimiWl ILSiSPtUil e 

C*A» till IP ?^«f«l«Afi CS&I PQR ENGOP IP BEPQRi ELsP 
4AYAPLAi«t 
CALL OWICOI^aYAI 
CAiiOilfCOMCLACI 
All WAN ■ 
iNC 


C 

C 


c 

c 


I^AOIIflNl ilpWMTIlAai ^ 

ClAiAAfi Cflii PGR an WHTIt PRECfOlO »Y A REPEAT 

CiliJPSifiAi} 

'Cllf 'imtCONtyAYAl 
■Rif Will' 
iNO 


CONYERT^ThS^GMArScTER into an INfiOIR^fiiaARR^*®R., 





OAT A I Wc€ 8 /iWI • iHMt IHT, IHg. IHG* iMi, |HR/ 

CALI OUT! AS 

CALL QUTSTRtlNTGERill 

CALL lATUP 

CAIL OUTO 0 N 

return 

ENO 


SUSROUTINf LABEiC 

C**^* lAlEtC - QUTSUT STATfMINT NUMBER 

INTESES iEXSTRI39}tTQKSItttiUE|50} 
COMNON /tl/ ■ilXSTfttmSlJS 

c 

IFITOKSII mm* Si iO T0 2 
CAiL TRNSSRttetlS«I.ENtl) 

CAU CTOKieUFiigNiNUN) 

iPimn •!.?• aoaoe* ©Q to i 

UH*S 

CAiL EARNCSIf$NI 
I CALL OUTnUNINUM* 

CALL OUTTAI 

HCTIJRH 

* 2 IfttOKStt *ir« f I @0 TO I 

call ERANeSUSMI 

-.xAITWRN 

En6 


C*A* 

c 


SMitmif INI omiic , 

"CTWIiC- -Wf |8lt OaOINAAT SO.ATRAN STATEMENT 

CALL iiXOWf 
'CAiilArOA-' - ’■ 
cAii“ oyfcoN 

AifURN 



■illllitiitlfli COST AT I LAI) 

;:Sif 5 i rilNiAATE COCE EOR ENO OF 00 - STATEMENT 

"WitvillCONfiAil 

ii0l«I.AOtl 

CAli QUTCOHILABIJ 

I^ETURN 

INO 


C 

c 



C 1^60 • GEI^Efli^Tt np(*H0T,« H 60 TC LAB* 

INTEGfiR IPN 0 »'C 8 bRp|iR|N 

UATA lFNOT/lM|||HFtim*l«*flHNtlHOf IHTtlH./tftPAREN/lHI/ 
t 

call OyTTAB 

CALL OUTSTHiIPNOttSI 

CALL SaLPAR 

CALL QUtCHIRPAftEH) 

CALL ourcot L ab) 

return 

InB ■ . , ■ 

c 

SUBROUTINE MHlLESfiAB) 

C.. IIWItES -* OlMtRATI CODE FOR eNO OF WHlli STATENfNT 

CALL OUTGOUABI 
LABl«*LAB<»t 
CALL QUTCQNILABII 
RETURN 
fNO 
C 


INTEOIR Fy*«CttON LASGEN(N) 

Cm** 6iN|RATf N CQNSiCOTIVI LA8LES AND RETURN THE FORST ONI 
COMMON /Lit/ LABEL 


COMRON /Lll/ I 

LAgiBN^LABIL 

LAiiLfiLAiiL<»N 


RETURN 
BNO . 


SUBROUTINE BaLMAR 

£••• COPT BALANCie PARENTNSSIS STRING 

INTBOER LiMSTil30lfG|TfaKtT0KS|l»SfNC0L#FREVtRFAREN 
CONMON m/ LlASTRtTOKSU 
COMMON iiW LINICTiSlMcOLfPRiV 
BATA LMAiSN/lNI/tRPARSN/lMI/ 

^ iNOUiroirroiiiducKi 

IM'IINOU *iO« ST 00 Tb T 
C*A« NiS«|Oi.- MISSINI LEFT PARIN. 

• ISU *:|0 

CitL IRMNEIUSNI 
Vmi,;OWTCM|iPARINI 

7 IFIiSstLii . 60 . LMRENI SO TO I _ 

gmmm ERROR MESSAGE • SOME OTHER SPeCIAL CHARACTER IN PLACE OF 
iSN«lt 


LEPT PARiN#: 


CALL IRRmESUSNI 
CALL OUTCMILPARINI 



GO 8 ■ 

I CAil igKOMT 

?. :,N0U»6fTT0ICUACK| 

iFtINOu,eO*IM3> *&R, lNDU*eQ,l~12l •OR. INoU.f Q. t-13J « OR. 
1 IWCiU ,£«* (-JI I GO TO 5 ■ 

£FI(PRfV •£«. 41 60 TC 2 t 

IFliEXSTRtll LPARiNJ GO TO 3 

HLPtkPrnniPmn 
GO TO 4 

■? IFItiXSTRtll .NE. RPRR6NI GO TO 4 ' 

NiF4R»«l.F4R-l 

4 cAii lixoy? 

iFf^LFAR 01 60 tO t 

GQ to a ■ ■ ■ 

5 CAtt LiXpi 

6 SFlRiPAR -IQ. 01 RfTliRN 

ISN-lf 

CALL EARKESdSMI 
RftURN 
IWO 

c ^ ^ 

C ■ . . . ^ 

SUBRQu’FINI IAT0P 

InTIGIr LIXSTRI 30ltT0XSll»GITT0Kf C0««AfRPARENfSI«C0LfPR6v 
mmm au LixSTR,foxsii 
COMMOfl /L5/ LIMlCftSlMcOLtPREV 
BATA CG««A/lH./*LPARSl4/lH|/iRPAAfN/L«»^ 




m m 








^ f<iEN»TOKSI|:#l 

A. _ 



2 , >FPTRIKNT| 

f * % 

3 iStiPlIl-FORBUFiai 

' i*m . ■ 

J«4#l 

lI'IPORBUfUl •Ni* foil QQ TO I 

«ITU«II 

0>IO 


SUSBOUTInE f^fiSTtUlBUFtiENI 
PUT BACK ThE BIVEN STRIHC 
iNTWEH iBUPtSOItC 
OG iO I ■ ItCIN 

(•Laupiiii 

10 CALI PUTBAkIGI 
' rITURM 
EN8 

subroutine TRNNALITRKOBXiOlPHl 



|ll|fltilf;i^-TAiLEt4> EEXSTrIKI. *EQ* 


TMIS SUBRCWTINf SIaRc^ES TnE tBRNlNAL TABLE FOR THf A-PHA TOKEN, 

INfiOiR I |X$Tfi<3OltNA«PTR«40)tTAiil<SOfi|tiOi#OtFN*TiHOE'XtTOKsEi 

C 0 RNQN /LI/ LiXsTRtTOKSlz 

CGNNON /L 4 / TAiLitllANPTRtMAXPtRtNAXTBL 

BATA E0S/2N-2/ 

LlXSTRIT0KSI2+il - lOs 

LASTP-i 

|;«iCASTP*-l 

S;,:iP|44 ■ ■ ^ ^ 

.-ulilpri *©t. NAXPTRl 60 TO 4 

:;t'' : 4pwAwr^“'l’'il ’ 


' ‘*Tm ■ ' 

. ^ j I » 

PplU'wll 

^ iP'lLfXlll 
c*»# search sucfiils',.' 

BEPN» 
TrRCEXS 
RETURN 

c**# SEARCH unsuccessful 
4 TRMDEX— I 
RETURN 
ENO 
C 
C ' 






‘ 4 *:^ 


u =^S‘ ^ ■' m 


^flH 


A NigN-TOKSIItl 

i 6 N 6 TM*lT 8 l.'*'Nif>^ ■ 
IftItENGTH *l.f* f® I®-? 

t<$>m ERROR MtSSRGi - lOENTIRIfR T* 

CAiE IRRwfiSi^^*** 

RtTURN 

', tf»TR»tRTR+l 

U>fiFtRttPTRI«>l.Tfil-*.l 

uCJ cl** IfTORSil 
tT8i»l.T8t*l 

'. d 3 * 4 "btttTHil*t£XSTllcU 

«TB,»Lm*|__,_._ 




If C IS R Bisn 
li c IS fc tCTTCR 

IP C IS »tlTHEf| OP tHS AS«^E 

i»aas‘”- 





rir»r*?n 


, NteN-TOKSII«l 

ifHGTH-UBljNWN _ 

o»«no« 

«LL*WIlHeSUSHl 

return 

*» tPTR**tRTR'*'l , ■ ' 

|ORPTRaf*TRI*tTei.+l 
m t % • i*TaKSii 

\MSt;u.ios 

RftURN 

IHO 


t 

C 




SMiROWflNe IS & ViilD SPgClR*. pHRRACtiR 

Sri'SptUi/xH” waB.aH. . 



hCTIoN WMtO 

If c IS B own 

tf C iS * lOTTeR . _ 

If c is bEITher of the mote 
i»illE*I.M«ITS“®**® 

i tWTBfcoie*” 


00 10 I • 

ifUEXST»a» .00. sfCHSMiii eo to i 

,0 CQNtINWf 

:••• Sf A rCM UNSUccfSSP^^ 

SROfX— 1 

nftURN . ■■V'lW.iK' 

I 'spoix-iAT* ^ 

RfituRRi ' . / V - 

|ND „. 



r» rio 



" 0 *1 * ^ f ^ 

iPic •ey* iiTie»«uii GO TO 4 
CONTINUE 
TYP'f>»2 
RETURN 

TTPE-O ■ , 

Return 

TYREwl ^ ' ■ " ■ 

RETURN 

SND 


iNTEQIR FUNCTION RlLClGUItU 

AitClO - 0 ••• ALL rni CHARACTERS ARE DIGITS 

iNTtOER LBXSTMIOItLfTTKRUAl.OIGSTStlCliTOKSIlfeOS 
CONNON /Li/ LIXSTR.TOKSII 
CONNON At/ litter# SlGITS 
OATA |aS/ 2 «“ 2 / 





I. 

? ipic mfi 
N6ftC«C 

riturn' 

i-fio . 

c 

c 

SUBROUTINE PUTBARtCI 

c 

c PUSH CHAR ACT IRS BAtR ONTO INPUT 

SHtICIR iuEUOOI»ISP^tiUESU*C 
CQRRCN /Ll/ BUR# if 
OATA BUrIS£/I0O/ 

c 

IP lip *6T* iUFSUI Co TO I 
flURIBPHC 
RETURN 

I lSN« 1.0 

CALL ERRMESCISNI 
• STOP 
iNO 



£41 «• 

im 


INTEGER pUNCTiON GiTCICI 

THIS PUNcTICN ©ETS CHARACTERS ERON StAWSARO INPUT 

NAXLInB “ NAXCaRO ♦ I • 80 ♦ Bl 
pORWATIiOAll 

[iStC • LASTC ♦ t ' 

in { LASTC -LE- 8 il GO TO i 
^ REAClI.lSoi IG 8 UP«ll.l-lt 80 >--^ 

CALL OOTRATIGSUPI 

' 110 1 1 • i»ts ^ 

' .NE, StARI m TO i « « 

i S 0 TO Z 




sye»^oufiNg oyiTAS 

SET pm COLUMN NOt S 

.NT66KR OUTSUri8iliOllTPt»LANK 
COMMON /L®/ QUTPfOUTlUP 
I? AT* ILANK/IH / 

C 

1 If I OUT P uSe* RETURN 
CALL QWTCHf BLANKl 
GO TO I 
mt 

c 



ifii .ST. LiNi m\sm 
C*»LSUfll} 

IF 1C ANf* UUQTIl GO TO 5 

i-m 

tfCLBUFUl iilCl* Cl G 




io TO 2 




J|ITA*4«1 

call outnumijatai 

CALL CMTC^LfTMl 
IFtS .il# 41 60 TO 4 
CALL QOTCNtLiuftlll 
I«|4l 

' 60 TO 4 

CALL QUtCMiCI 

l-Iti 


INI eUTNUMlil 
rOietiAL MJNIiAiiN 
t ifAlllHC " ' ,4, 


10 CALL 
RltUAN 

ENO 




n n 


c 


SUBROUTINi •OUTCDNilll 
c OUTPUT • H CONTImUE • ^ 

iNfeGER cmnmBt 

OAII CONTlN/lHCtlHOilHMtlHTtlHI.iHN.lMUflHE/ 

c 

IPIN .GT, 01 CAit aUlNUMtNi 

CAil OUTTAi 

atl OUTSTRICoNTINtBl 

C 41 I. QUfDW 

HfTUAN 

WC 

C ' . 

C ' 

OUT6C3|Nl 

t OUTPUT • ©Q TO N • 

ifiTIGEB GOTOtAI 
0ATA ©OTQ/lWGtiHO.lMTtlHO/ 

£ 

CkLl OUTTAI 

CAli OUTSTRtGOTO*^* 

CALI OUTNUMINI 
CALL OUTBON 
rITURN 
INO 

£■ 



SUIRoUTIWti OUTCWICl . . ^ 

WT OHf CMARACTER IMTO O^UT SuPJff 
IMTfCfR OUTiUPC il It QUTPiCt 0LANKt$TAR 
COURON /i«/ OUTPtOtiTIUF 
BATA iiANR/lH /tSTAR/lH*/ 

- 

IRiOUTP tlT. 12 1 Go TQ 3 
£Ai>t* QUToON ■ ' ' 

■' I«1 ■■ ‘ " 

' S ' ' tfit *@i* 61 ©Q TO 2 ' 


SUBittlliNt mm 

P«1HT OUT AN ttJ 
INt 6G6« OUTfUN 



10 


2 i 


so 


/t»/ OUTPtOWTSUF 
DATA l.INF0ll/0/i8tANK#lH / 

FOUHAflSIAll 
LlWFOR-tINFQRAl 
UNI-OCT AtaiNFORI 
LtNOtHoirOCtLINIfSTRl 
00 10 ! • l*.|.fN8TH 
00T8UriII«STRfll 

NIXT-tSNOfHn 

00 20 1 NfXftf 
OUTtUFltl«OltANK 
USTpOUTPftO 
00 10 S P LASTtil 
OUTSUf|XI»i|ANK 


MuSTftltlOol IQ 0 fiUPII|iI-li 8 ll 


RADIOO . . 



SUSRIHITIhI OUTrATIOsORJ 
C*PP OUTPUTS A ilNI OR RAT FOR SOURCE RROORAN 

WTlSfi Riufllfl.0SUPl8ll.STRtill.0ClAl.ieiANK.SIHC0tfRRiV 

CONNON /I.I/ i.lNECTtSfi«COl.tRROV 

OAfA iSUR/iSRl« /tOiANR/lM / 


IQI 



P|}RNArt 29 X«« 9 All 
tlHEPOCTAUitNEGTI 
l.|l«itH-ltOCtil»lt.srRl 
00 10 I -ItlONOTM 

NiXfpiiNifRpi 
2i I P «ixits 
ifiiiPiaNK' 

I ' p Ifltio 


IRiURflltl* 


f’ .™:' 4 


lUN 
ocT«o 

6 XP -0 

I OuQ-OfC/fi 




NUNIER 



mm m m 


QUO 8 

QCT*R««*i©«*eXP 4 Q€T 

f)EC»ttuO 

exp«fxp-»i 

IF<GUO.HE.0J Qo TO 1 

OCTAL* OCT 

KfTURN 

4 ;ND 


.100 

10 | 


C 


INTfOFR FUNCTION IfOCIlNTtSTRl ^ ^ ^ 

CONVERTS AN INTECiR NUMR6R INTO A CHARACTER STRInS ArO 
RETURNS THl LfiNGTH Of THf STRIPS 
INTIciR STRtlll 

FORNATIlll 

FORRATtAII 

INTVAi»lNT 

In I ' 

irIr»intvai.-intval/ iono 

IFttRER •EQ* 01 IRENaiO 
REWINO 0 

WRiTElOtlOOl IREN 
REWInO 0 
R|A0f3tl0t} NUN 
STRiIIoNUr 
INTVAI.*INTVAL./|0 

IFtINfVAi .NE^ 01 60 TO 1 

'V# itfat 

ni 

If 14 .SO* II RETURN 
.KfSTRIII 
ITiftl-STRlJl 
SYil4l«R 

#A4AI 

’ iiTURI 


il 60 TO t 


100 

101 



t= 0 «Mt^.. 

FORRAftlll 
NUM -0 
i-l 




.•*U« 


c 

t 


RfHINO 0 

wRiTgfo.ioai %rmii 

REWIW 0 

f«6iQI0tl0li number 
NyM«NUMi*i 04 HUMBE« 
Imin 

IF I I .iS* |0} @0 TO 1 
RETURN 

iNe 


SuiRQUIlNi iRRMEStlSRl 

RRINTS out TMf RfilVINt ERROR MESSfOf 

INTiOtR iix$TR| 3 §I.T 6 KSll«SEHC 0 lfRREVtQCTRl 

CORmOH /LI/ EiXSTRtTOKSU 

CORRQN /is/ ilNBCT.SfMCOiiRREV 


aNE»OCTALtl.INECTI , 

OOTQ{I»2«3t4t9t6t7t8i9»|O*ll.l2il3tl.RttSt|6tltt]iatlfi20tIlt2attSIRAOI 




i tlSN 

1 WRITEC^.IOII lInE 
RETURN 

2 l|RlTEf6«l02t UtNE 
RETURN 

3 liRlTEtEtl.031 LINE 
RITURN 

R MRITilE«104l LINE 
RfTURN 

5 MRlTEtEilOSI LINE 
RETURN 

i MRtTEIE.loEl LINE 
RETURN 

t UR|TE(6tla7l LINE 
RETURN 

t NRITCUtlOei LINE 

AifiiRii 

f MRlTitfitlOSl LINE 
Rif URfij 

10 NRlTflEiliei LINE 
RETURN 

11 NilTclAttlt} LINE 

:v,'.:;M»fURN 

fftflltl LINE, 


• iLEXSTRtllil-ltTQKSUf 





liilSTRtll 


13 NRlTEIAtlll} ilNt 
RETURN-' M 

14 NRlTIliillfr^ ' 

Riff 

15 





nmtm 

im 9 mt chaiu^MI P^ll 


NO* ••|i■<l> 
HO* «aIS*« 
NO* «*li** 
NO* sfi,* 
NO* •till* 


i.iN£ NO* ♦#ii»* « immiPtm fAiil 
iiN« NO* •tiN* - 

ilMl NO* Ofllf • * oiOiilOf m ICW>^, 
£llli"m. %»«♦ ?» SlATiNfNt'NMI^aA 1 
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WRITEIA.IUI 

RETURN 

LINE 

17 ' 

WRITEfe.ll?! 
RETURN ' 

LINE 

}, « 

wRITEIfe.llSl 
RETURN . 

LINE 


NRITEa,ll9l 

RETURN 

LINE 

Sn 

WR1tE«6,120I 

RETURN 

LINE 

21 

WRlTEa*12ll 

Return 

LINE 

2? 

WRITEIi.mi 

return 

LINE 

23 

WRiTUfitllSI 

return 

LINE 
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FORMAT ax, •WARNING 

1 

FORMATaX,*ERRDR - 
•tSOAli 

IDS 

FoRMATax, •ERROR - 


- LINS 

UNE NO 


NO* 

£^lf ♦ «•» 


lli4 fQRMAT( 1X»*€RROR 
IU 5 rORMATtlXi*lRROR 
lOfe format C lX**€RROR 
lOT FORMAT I IX, •error 
iOi FORMATIIX, •ERROR 
!»•! 

109 FORMAT I IX* •WARNING - 

110 FORMATtlX.^WARHlNG - 

111 format ax, •WARN INS - 
lOF LIFT PARENTHESIS*} 


I.1NE NO. •,i3,* 
tINE NO* •,l3f* 

line no* •,i3,* 
LINE NQ« ••I3,* 
LINE NO* •,13,* 
LINE NO* ••13,* 


LINE NO* «tt3** 
LINE NO. i|i»li>* 
LINE NO. ••IS** 


112 Format ax, •ERROR - 

IR statement* I 

US format aX,*WARN|NG 
II 

llA FORMAT ax, ♦E rrOr . 
Il5 FORMATClXttiRROR - 
U6 FORMATilXt^ERRoR - 
11 ? FORMAT ax**iRROR - 
US FQRMATax,*IRROR - 
1ACR*I 
lACKtl 

119 FORMATax**ERROR - 
Pi format ax**|RROR 
III «iRNATllX,*lR«OR - 
' iCEiOS TNI SFICIFISC 
12 a FORMArilAtilRRiR 
123 FORMAT llMt*fRROR 
END , 
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LINE 

LINE 

LINE 

LINE 


- token too LONG* I 
POSSIBLE IMPROPER lOENTIFIIR 

ILLEGAL CMARACtER*} 

ILLEGAL Else* I 
ILLEGAL UNTIL*! 

STACK OVERFLOW In PARSER*! 
ILLEGAL CLOSE* I 
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/♦ THIS Is A OUHHY test FROSRAk 
/* using Ait THE SFEcIAt RATFOR CONSTRUCTS 
INTEGER RAOHAIlOltARRAYISQltCCINsTANTtUNIT.HAXtIfU 
character STRlNGU®lfSP|CtAtONitQOOTi»EOF#SUFFiRf801 


F3R{|ii|«,|,@t«mX»tI«t4’|i 6EGIM 
RAOHAII |•ARRATf ||*CONS tANT 
IFlRAOHAlIKGT.tlHIfl 
iREAK 

IF t ARRAY! 1 U EQ.ARRAYf 1411 } 
NEXT 

itSE iFfARRAYtlUEGsGI 
ARRAY! II iCONSTANT 

Close 

MHILE! STRING! I UNI* EOF} GEGIN 
SUFFER! ill»STR|NG!l} 

1«|4| 

4«441 

CLOSE 

rEFEaT segin 

IF! STRING! I I .EQ. SFiCIALONEI 
STRING I ll»iLAim 
ELSE lFISTRiNGa}*EG«GIAITEI 
BREAK 

CLOSE UNTlLfSTRll^!Sl.EG*£OFl 

*• 
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TRANSLATfO FORTRAN 


INTfGmRAOHAf tGI*ARRAYI20} tCONSf Itif 
INTEGERSTRlMGIlSIiSFECItt^OfitlOFtl 
CONflNUE 

30000 iF!.NIlT*II.GT*WAX)|GOIOSG»»I V 

RAOHAltl<"ARRAYfSIFOON|TI 
IFI.NgT«lRA0«AtII«iT#iINIT>>a0?0»W 
GQTOSflOOE . 

30001 eOHIlMK „ 


3OO0S CONTINUE 

300!^ SnBNUI 
300^ CONfINUi'' 
30001 „ 

GOtOIOOOO 
.30002 CON tl HUE 


2f> 

11 

30 

31 

32 

33 

34 
3f 

. „ - -ii. - 
3t 

%0 

♦I 

4? 

43 

44 
43 
4i 
4? 

50 

51 


1 p :i ,1 

I*l 

I I 

COHTiMyi 

10009 iFl.HOT.tSTRINOIll.NE.IOFHOOTOfOOlO 
8UFffRf4l*StRIN6III 
i»m 

0OTO3OOO9 

30010 CO^IIWS 
ClNllNUE « _ 

30011 CONTINUE 

IF t «N0f • I StRl NOf I } *EQ* SpECl 2 ) ) GOTCBOQ13 

STRlNOtll«sUNK 

OQT030014 • 

30013 COMflMiE 

IFI 4N0T* fSTRlNOf 1 }*eO*OUOTE|)6OTO30O15 
001030012 
30015 CONTI NUi 
10014 coniinue 

lFUN0T«IStRlNefIHEQ«EOFH&0TO30Oll 

30012 CONtlMUE 
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